/* GET INLINE FILENAME */
call open(place, 'env:dirquery')
wher = readln(place)

lng = LENGTH(wher)
x = lng - 2
dirC = SUBSTR( wher , 2 , x )
xdir = SUBSTR( wher , 2 , x )
 
parse var xdir ':' temp
if temp="" then temp=x
do forever
parse var temp dirj '/' temp
if temp ="" then break
end
cap = '">'
str1 = '<A HREF="'
str2 = 'pics/'
str3 = 'sounds/'

check1 = insert(xdir , 'test.html') 
check2 = insert(check1 , 'test.html') 
x = EXISTS(check1)
IF x = 0 THEN DO
check = 'NO'
END
IF x = 1 THEN DO
check = 'YES'
END
ADDRESS 'AV.REXX'
SETVAR fxdir dirj
SETVAR INLN1 str1
SETVAR endcap cap
SETVAR pdir str2
SETVAR sdir str3
SETVAR D2 dirC
SETVAR chk check